home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / gen_bbs / woetgftl.zip / MH-TGFTL.SCR < prev    next >
Text File  |  1996-12-18  |  3KB  |  117 lines
  1. ;Telegard File Tagging Prompt Lightbar by Max Headr00m
  2. ;Original script (c) copyright 1996, wOe. All rights reserved.
  3.  
  4. VARIABLE SELECTED INTEGER
  5. VARIABLE KEY CHAR
  6. VARIABLE NOSELECT INTEGER "0"
  7.  
  8. ;No ANSi? No Lightbar.
  9. ACS XT PUT "File tagging prompt (?=Help) "
  10. ACS XT ENDSCRIPT
  11.  
  12. ;Note: This line is crucial to work around one of TG's 'shortcomings' with
  13. ;getting single characters. Change it if you want, but make sure to make all
  14. ;other necessary changes as well.
  15.  
  16. PUTNL "`0F───────────────`07─`0F──`07──`0F─`07────────`08─`07──`08──`07─`08──────── ──  ─·· ·  ·   ·           [`07mh`08.`07wOe`08]"
  17.  
  18. :Selected_More
  19. SELECTED "1"
  20. JE "$NOSELECT$" "1" HitEnter
  21. PUT "`1F MORE `07     flag      next area      view archive      toggle newscan      quit `00DA"
  22. JUMP WaitKey
  23.  
  24. :Selected_Flag
  25. SELECTED "2"
  26. JE "$NOSELECT$" "1" HitEnter
  27. PUT "`07 more     `1F FLAG `07     next area      view archive      toggle newscan      quit `00DA"
  28. JUMP WaitKey
  29.  
  30. :Selected_NextArea
  31. SELECTED "3"
  32. JE "$NOSELECT$" "1" HitEnter
  33. PUT "`07 more      flag     `1F NEXT AREA `07     view archive      toggle newscan      quit `00DA"
  34. JUMP WaitKey
  35.  
  36. :Selected_ViewArchive
  37. SELECTED "4"
  38. JE "$NOSELECT$" "1" HitEnter
  39. PUT "`07 more      flag      next area     `1F VIEW ARCHIVE `07     toggle newscan      quit `00DA"
  40. JUMP WaitKey
  41.  
  42. :Selected_ToggleNewscan
  43. SELECTED "5"
  44. JE "$NOSELECT$" "1" HitEnter
  45. PUT "`07 more      flag      next area      view archive     `1F TOGGLE NEWSCAN `07     quit `00DA"
  46. JUMP WaitKey
  47.  
  48. :Selected_Quit
  49. SELECTED "6"
  50. JE "$NOSELECT$" "1" HitEnter
  51. PUT "`07 more      flag      next area      view archive      toggle newscan     `1F QUIT `07`00DA"
  52. JUMP WaitKey
  53.  
  54. :WaitKey
  55. KEY ""
  56. GET KEY "`00 ~SH" "MFNVTQ^MCD46"
  57.  
  58. JE "$KEY$" "4" MoveLeft
  59. JE "$KEY$" "D" MoveLeft
  60. JE "$KEY$" "6" MoveRight
  61. JE "$KEY$" "C" MoveRight
  62.  
  63. PUT "A~SMA"
  64. JE "$KEY$" "^M" HitEnter
  65. NOSELECT "1"
  66. JE "$KEY$" "M" Selected_More
  67. JE "$KEY$" "F" Selected_Flag
  68. JE "$KEY$" "N" Selected_NextArea
  69. JE "$KEY$" "V" Selected_ViewArchive
  70. JE "$KEY$" "T" Selected_ToggleNewscan
  71. JE "$KEY$" "Q" Selected_Quit
  72.  
  73. :MoveRight
  74. JE "$SELECTED$" "1" Selected_Flag
  75. JE "$SELECTED$" "2" Selected_NextArea
  76. JE "$SELECTED$" "3" Selected_ViewArchive
  77. JE "$SELECTED$" "4" Selected_ToggleNewscan
  78. JE "$SELECTED$" "5" Selected_Quit
  79. PUT "AC"
  80. JUMP WaitKey
  81.  
  82. :MoveLeft
  83. JE "$SELECTED$" "3" Selected_Flag
  84. JE "$SELECTED$" "4" Selected_NextArea
  85. JE "$SELECTED$" "5" Selected_ViewArchive
  86. JE "$SELECTED$" "6" Selected_ToggleNewscan
  87. JE "$SELECTED$" "2" Selected_More
  88. PUT "AC"
  89. JUMP WaitKey
  90.  
  91. :HitEnter
  92.  
  93. IF "$SELECTED$" "1"
  94.    PUT "~SK"
  95.    MENU -;;
  96. ELSE
  97.    IF "$SELECTED$" "2"
  98.       MENU -;T
  99.    ELSE
  100.       IF "$SELECTED$" "3"
  101.          MENU -;N
  102.       ELSE
  103.          IF "$SELECTED$" "4"
  104.             MENU -;V
  105.          ELSE
  106.             IF "$SELECTED$" "5"
  107.                MENU -;Z
  108.             ELSE
  109.                IF "$SELECTED$" "6"
  110.                   MENU -;Q
  111.                ENDIF
  112.             ENDIF
  113.          ENDIF
  114.       ENDIF
  115.    ENDIF
  116. ENDIF
  117.